home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 09-23.BAS < prev    next >
BASIC Source File  |  1991-06-07  |  851b  |  50 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. Status = SETMEM(-1*(4096+16))
  6.  
  7. OldMode = FGgetmode
  8.  
  9. IF FGtestmode(3,2) THEN
  10.    FGsetmode 3
  11. ELSEIF FGtestmode(7,2) THEN
  12.    FGsetmode 7
  13. ELSE
  14.    PRINT "This program requires"
  15.    PRINT "an 80-column display."
  16.    STOP
  17. END IF
  18.  
  19. FGcursor 0
  20. FGsetattr 9, 7, 0
  21.  
  22. FOR Row = 0 TO 24
  23.    CharString$ = " This is row" + STR$(Row) + "  "
  24.    FGlocate Row, 0
  25.    FGtext CharString$, 16
  26.    FGtext CharString$, 16
  27.    FGtext CharString$, 16
  28.    FGtext CharString$, 16
  29.    FGtext CharString$, 16
  30. NEXT
  31. FGwaitkey
  32.  
  33. Status = FGallocate(1)
  34. FGtransfer 32, 47, 11, 13, 0, 24, 0, 1
  35. FGsetcolor 1
  36. FGrect 32, 47, 11, 13
  37. FGsetattr 15, 1, 0
  38. FGlocate 12, 33
  39. FGtext "Press any key.", 14
  40. FGwaitkey
  41.  
  42. FGtransfer 0, 15, 22, 24, 32, 13, 1, 0
  43. FGwaitkey
  44.  
  45. Status = FGfreepage(1)
  46. FGsetmode OldMode
  47. FGreset
  48.  
  49. END
  50.